home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / cpkocx17 / options.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-11-24  |  3.9 KB  |  130 lines
  1. VERSION 4.00
  2. Begin VB.Form Options 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Briscola Options"
  5.    ClientHeight    =   3180
  6.    ClientLeft      =   2370
  7.    ClientTop       =   3990
  8.    ClientWidth     =   4455
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   1
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   3540
  20.    Icon            =   "OPTIONS.frx":0000
  21.    Left            =   2310
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   3180
  24.    ScaleWidth      =   4455
  25.    Top             =   3690
  26.    Width           =   4575
  27.    Begin VB.TextBox NameBox 
  28.       Appearance      =   0  'Flat
  29.       Height          =   285
  30.       Left            =   1560
  31.       TabIndex        =   7
  32.       Text            =   "NameBox"
  33.       Top             =   240
  34.       Width           =   2655
  35.    End
  36.    Begin VB.CommandButton Command2 
  37.       Appearance      =   0  'Flat
  38.       BackColor       =   &H80000005&
  39.       Cancel          =   -1  'True
  40.       Caption         =   "Cancel"
  41.       Height          =   375
  42.       Left            =   3000
  43.       TabIndex        =   5
  44.       Top             =   2640
  45.       Width           =   1215
  46.    End
  47.    Begin VB.CommandButton Command1 
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H80000005&
  50.       Caption         =   "OK"
  51.       Height          =   375
  52.       Left            =   240
  53.       TabIndex        =   4
  54.       Top             =   2640
  55.       Width           =   1215
  56.    End
  57.    Begin VB.Frame Frame3D1 
  58.       Caption         =   "Game Mode"
  59.       Height          =   1575
  60.       Left            =   240
  61.       TabIndex        =   0
  62.       Top             =   840
  63.       Width           =   3975
  64.       Begin VB.OptionButton OptDemo 
  65.          Caption         =   "Auto Play (Demo)"
  66.          Height          =   255
  67.          Left            =   240
  68.          TabIndex        =   3
  69.          TabStop         =   0   'False
  70.          Top             =   1080
  71.          Width           =   2295
  72.       End
  73.       Begin VB.OptionButton OptVsNetwork 
  74.          Caption         =   "Play Against Network Opponent"
  75.          Height          =   255
  76.          Left            =   240
  77.          TabIndex        =   2
  78.          TabStop         =   0   'False
  79.          Top             =   720
  80.          Width           =   3255
  81.       End
  82.       Begin VB.OptionButton OptVsComputer 
  83.          Caption         =   "Play Against Computer"
  84.          Height          =   255
  85.          Left            =   240
  86.          TabIndex        =   1
  87.          Top             =   360
  88.          Value           =   -1  'True
  89.          Width           =   2895
  90.       End
  91.    End
  92.    Begin VB.Label Label1 
  93.       Appearance      =   0  'Flat
  94.       BackColor       =   &H80000005&
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "Player's Name"
  97.       ForeColor       =   &H80000008&
  98.       Height          =   255
  99.       Left            =   240
  100.       TabIndex        =   6
  101.       Top             =   240
  102.       Width           =   1215
  103.    End
  104. Attribute VB_Name = "Options"
  105. Attribute VB_Creatable = False
  106. Attribute VB_Exposed = False
  107. Private Sub Command1_Click()
  108.     Options.Tag = "OK"
  109.     Options.Hide
  110. End Sub
  111. Private Sub Command2_Click()
  112.     Options.Tag = "Cancel"
  113.     Options.Hide
  114. End Sub
  115. Private Sub Form_Load()
  116.     Form_Center Me
  117.     NameBox = Player1_Name
  118.     Select Case Game_Mode
  119.         Case MODE_NETWORK
  120.             OptVsNetwork.Value = True
  121.         Case MODE_DEMO
  122.             OptDemo.Value = True
  123.         Case Else
  124.             OptVsComputer = True
  125.     End Select
  126. End Sub
  127. Private Sub NameBox_KeyPress(KeyAscii As Integer)
  128.     If KeyAscii = 13 Then KeyAscii = 0
  129. End Sub
  130.